home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Menu.Dxr / 00031_Sound Handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  984 b   |  60 lines
  1. on HandlePuppetSound stringParam
  2.   stopSounds()
  3.   puppetSound(string(stringParam))
  4.   updateStage()
  5.   repeat while soundBusy(1)
  6.     if the mouseDown then
  7.       puppetSound(0)
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   stopSounds()
  12.   updateStage()
  13. end
  14.  
  15. on HandlePuppetSoundNS stringParam
  16.   stopSounds()
  17.   puppetSound(string(stringParam))
  18.   updateStage()
  19.   DelaySome(15)
  20.   repeat while soundBusy(1)
  21.     updateStage()
  22.   end repeat
  23.   stopSounds()
  24.   updateStage()
  25. end
  26.  
  27. on soundClicker playsound
  28.   global gClicked
  29.   if soundBusy(1) then
  30.     puppetSound(0)
  31.   else
  32.     puppetSound(playsound)
  33.     set gClicked to the clickOn
  34.   end if
  35.   if the clickOn <> gClicked then
  36.     puppetSound(playsound)
  37.     set gClicked to the clickOn
  38.   end if
  39. end
  40.  
  41. on stopSounds
  42.   sound stop 1
  43.   sound stop 2
  44.   puppetSound(0)
  45.   updateStage()
  46. end
  47.  
  48. on stopSound2
  49.   if soundBusy(2) then
  50.     sound stop 2
  51.   end if
  52. end
  53.  
  54. on DelaySome howLong
  55.   startTimer()
  56.   repeat while the timer < howLong
  57.     nothing()
  58.   end repeat
  59. end
  60.